# 读取GDP数据（假设数据保存为gdp_data.csv，使用制表符分隔）
gdp_df <- read.table(
  file = "e:/timeSeriesAnalysis/gdp.csv", 
  header = TRUE,                # 第一行是列名
  sep = "\t",                   # 制表符分隔
  encoding = "UTF-8",           # 编码设置
  stringsAsFactors = FALSE      # 不自动转换为因子
)

# 查看数据结构和列名
cat("数据列名：\n")
print(colnames(gdp_df))

# 提取年份和GDP数据
years <- gdp_df$Year
gdp_values <- gdp_df$PerCapitaGDP 

print(gdp_values)
gdp_ts <- ts(gdp_values, start = 1990, frequency = 1)

# 查看创建的时间序列
cat("\nGDP时间序列：\n")
print(gdp_ts)

#绘制GDP时间序列图
plot(
  gdp_ts,
  main = "1978-2023年GDP时间序列",
    type = "p",  
  xlab = "年份",
  ylab = "GDP",
 col = "#1E90FF",              
  pch = 16,                    
  cex = 1.1,                  
  lwd = 1                      
)

